home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 425_01 / tar / extract.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-02  |  13.2 KB  |  485 lines
  1. /* extarct.c - extract files from (tape) archive.
  2.  * This is a part of the Tar program (see file tar.c)
  3.  * Author: T.V.Shaporev
  4.  * Creation date: 14 Dec 1990
  5.  */
  6. #include <stdio.h>
  7.  
  8. #include "sysup.h"
  9. #include "nodedef.h"
  10. #include "modern.h"
  11. #ifdef MODERN
  12. #    include <string.h>
  13. #else
  14.     char *strncpy();
  15.     int  strlen();
  16. #endif
  17. #ifndef MSDOS
  18.     int  mknod(), chown(), utime();
  19.     long time();
  20. #endif
  21.  
  22. #include "zippipe.h"
  23. #include "lzwbits.h"
  24. #include "lzwhead.h"
  25. #include "compress.h"
  26. #include "define.h"
  27. #include "lzpack.h"
  28.  
  29. static int soctus   __ARGS__(( register char *, register short* ));
  30.        int soctul   __ARGS__(( register char *, register long * ));
  31. static int mismatch __ARGS__(( register char *, register char *, int ));
  32.  
  33. #define octal(c) (((c)&0370)=='0')
  34.  
  35. static char unknown[] = "Tar: \'%s\' unknown file type \'%c\'\n";
  36. #define _unknown (unknown+9)
  37.  
  38. static int soctus(s, u)
  39. register short *u;
  40. register char *s;
  41. {
  42.    register i;
  43.    while (*s == ' ') ++s;
  44.    for (*u=0, i=0; octal(*s) && i<7; i++, s++) *u = (*u<<3)|(*s&7);
  45.    return *s!=' ' && *s!='\0';
  46. }
  47.  
  48. int soctul(s, u)
  49. register long *u;
  50. register char *s;
  51. {
  52.    register i;
  53.    while (*s == ' ') ++s;
  54.    for (*u=0, i=0; octal(*s) && i<11; i++, s++) *u = (*u<<3)|(*s&7);
  55.    return *s!=' ' && *s!='\0';
  56. }
  57.  
  58. int gethead()
  59. {
  60.    short n;
  61.    static short errcount = 0;
  62.    register char *err_text = "Tar: bad directory structure\n";
  63.  
  64.    if ((hblock = readtape()) == NULL) return ERROR;
  65.    if ((hblock->name[0]) == '\0') {
  66.       return errcount ? (++errcount, ERROR) : FALSE;
  67.    }
  68.    if (soctus(hblock->chksum, &n)) goto bad;
  69.    if (n != headsum(hblock)) {
  70.       err_text = "Tar: directory checksum error\n"; goto bad;
  71.    }
  72.    if (soctus(hblock->mode,  (short*)&(st.st_mode)) ||
  73.        soctus(hblock->uid,   (short*)&(st.st_uid))  ||
  74.        soctus(hblock->gid,   (short*)&(st.st_gid))  ||
  75.        soctul(hblock->size,  (long *)&(st.st_size)) ||
  76.        soctul(hblock->mtime, (long *)&(st.st_mtime))) goto bad;
  77.    if (hblock->filetype == TF_CHR || hblock->filetype == TF_BLK) {
  78.       if (soctus(hblock->x.new.devmajor, &dmajor) ||
  79.           soctus(hblock->x.new.devminor, &dminor)) goto bad;
  80.    }
  81.    if (errcount != 0) {
  82.       (void)fprintf(myout,
  83.                     "Tar: %d blocks skipped to find header\n", errcount);
  84.       errcount = 0;
  85.    }
  86.    if (hblock->filetype == TF_OLD || hblock->filetype == TF_REG) {
  87.       (void)soctul(hblock->x.old.srclen, &codesize); /* no sence for    */
  88.       (void)soctul(hblock->x.old.srcsum, &longcsum); /* non-packed file */
  89.    } else {
  90.       longcsum = codesize = 0;
  91.    }
  92.    return TRUE;
  93. bad:
  94.    if (errcount++ == 0) (void)fprintf(myout, err_text);
  95.    if (!i_flag) done(ERREAD);
  96.    return ERROR;
  97. }
  98.  
  99. static int tstfield __ARGS__(( char *, int ));
  100.  
  101. static int tstfield(s,n) /* is the field a valid octal number? */
  102. char *s; int n;
  103. {
  104.    register j;
  105.  
  106.    for (j=0; j<n && octal(s[j]); j++);
  107.    if (!j || j >= n) return FALSE;
  108.    if (s[j] == ' ') ++j;
  109.    while (j<n && !s[j++]);
  110.    return j>=n;
  111. }
  112.  
  113. #define TstField(x) tstfield(x, sizeof(x))
  114.  
  115. short isextent(allx, allb)
  116. short *allx; long *allb;
  117. {
  118.    short n;
  119.  
  120.    if ((hblock->filetype != TF_OLD && hblock->filetype != TF_REG) ||
  121.        !TstField(hblock->x.s_v.extent) ||
  122.        !TstField(hblock->x.s_v.allext) ||
  123.        !TstField(hblock->x.s_v.total)) return ERROR;
  124.    (void)soctus(hblock->x.s_v.extent, &n);
  125.    (void)soctus(hblock->x.s_v.allext, allx);
  126.    (void)soctul(hblock->x.s_v.total,  allb);
  127.    return n < 1 || n > *allx || *allb <= st.st_size ? ERROR : n;
  128. }
  129.  
  130. int ismagic()
  131. {
  132.    register i;
  133.    register char *p, *q;
  134.    static char magic_list[][8] = { TMAGIC, GMAGIC };
  135.  
  136.    if (hblock->filetype != TF_OLD) {
  137.       for (i=0; i<dimof(magic_list); i++) {
  138.          p = magic_list[i];
  139.          q = hblock->x.new.magic;
  140.          while (*q && *q == *p) {
  141.             ++q; p++;
  142.          }
  143.          if (*q == '\0' && (*p == '\0' || *p == ' '))
  144.             return magic_list[i][0];
  145.       }
  146.    }
  147.    return 0;
  148. }
  149.  
  150. char prefix()
  151. {
  152.    switch (hblock->filetype) {
  153.       case TF_CTG: /* ??? contiguous file */
  154.       case TF_OLD:
  155.       case TF_REG:
  156.       case TF_LNK: return ' ';
  157.       case TF_SYM: return 'l';
  158.       case TF_CHR: return 'c';
  159.       case TF_BLK: return 'b';
  160.       case TF_DIR: return 'd';
  161.       case TF_QUE: return 'p';
  162.       case GF_DMP: return 'D';
  163.       case GF_MUL: return ',';
  164.       case GF_VOL: return 'v';
  165.    }
  166.    return '?';
  167. }
  168.  
  169. int usize() /* is it valid to use file size in header */
  170. {
  171.    switch (hblock->filetype) {
  172.       case TF_OLD: case TF_REG: case TF_CTG:
  173.       case GF_DMP: case GF_MUL: case GF_SPR: /* what's it? I wonder */
  174.          return TRUE;
  175.    }
  176.    return FALSE;
  177. }
  178.  
  179. void skipfile()
  180. {
  181.    register long blocks;
  182.  
  183.    for (blocks=(st.st_size+BLKSIZE-1)/BLKSIZE; blocks>0; blocks--) {
  184.       if (readtape() == NULL) {
  185.          (void)fprintf(myout, "Tar: tape read error\n");
  186.          if (i_flag) done(ERREAD);
  187.          return;
  188.       }
  189.    }
  190. }
  191.  
  192. static int mismatch(p, s, l)
  193. register char *p, *s; int l;
  194. {
  195.    register i;
  196.  
  197.    for (i=0; *p && i<l; ++p, i++) {
  198.       if (*p == '*') {
  199.          while (*++p == '*') ;
  200.  
  201.          while (l>=i) {
  202.             if (!mismatch(p, s+i, l-i)) return FALSE;
  203.             ++i;
  204.          }
  205.          return TRUE;
  206.       } else if (*p != '?') {
  207.          if (s[i] != *p) return ERROR;
  208.       }
  209.    }
  210.    return *p || i<l;
  211. }
  212.  
  213. int inargs(argc, argv, n)
  214. int argc; register char *argv[], *n;
  215. {
  216.    register i; register j; register k;
  217.    register char *p;
  218.  
  219.    for (i=0; i<argc; i++) {
  220.       if (s_flag) {
  221.          for (p=argv[i], j=0; j<MAXTNAME && p[j]==n[j] && p[j]!=0; j++);
  222.          if (j<MAXTNAME && p[j]==0 && (n[j]==0 || n[j]=='/')) return TRUE;
  223.       } else {
  224.          j = 0;
  225.          while (j<MAXTNAME && n[j]) {
  226.             do ++j; while (n[j]!='/' && n[j]!=0);
  227.             k = mismatch(argv[i], n, j);
  228.             if (k == ERROR) goto extloop;
  229.             if (k == FALSE) return TRUE;
  230.          }
  231.       }
  232.       extloop:;
  233.    }
  234.    return FALSE;
  235. }
  236.  
  237. void scantape(argc, argv, handler)
  238. int argc; char *argv[]; void (*handler)__ARGS__((void));
  239. {
  240.    register k;
  241.  
  242.    while ((k=gethead()) != FALSE) {
  243.       if (k == ERROR) continue;
  244.       if (argc < 1 || inargs(argc, argv, hblock->name)) {
  245.          (*handler)();
  246.       } else {
  247.          if (usize()) skipfile();
  248.       }
  249.    }
  250.    if (pktype == PKZIP) {
  251.       while ((k=unzread((char*)hblock, BLKSIZE)) == BLKSIZE);
  252.       if (k != ERROR) {
  253.          if (k) (void)fprintf(myout, "Tar: final block misaligned\n");
  254.          k = unzclose();
  255.       }
  256.       if (k) {
  257.          register char *p = NULL;
  258.          if (k == -1) p = "error"; else if (v_flag) p = "warning";
  259.          if (p) (void)fprintf(myout, "Tar: unzip %s: %s\n",
  260.                                      p, ziperrlist[ziperror]);
  261.       }
  262.    }
  263. }
  264.  
  265. extern long thisread;
  266. extern int arcget __ARGS__(( void ));
  267.  
  268. void catalog()
  269. {
  270.    register long thislen;
  271.    register reverse = FALSE, skipped = FALSE;
  272.    register char *p;
  273.    static no_mem = FALSE;
  274.    short nx = 1, allx; long xinfo;
  275.    extern char ofname[];
  276.    register c;
  277.  
  278.    p = hblock->name;
  279.    c = hblock->filetype;
  280.  
  281.    if (v_flag) prmode(prefix(), (int)(st.st_mode));
  282.    if ((c == TF_OLD || c == TF_REG) && (nx=isextent(&allx, &xinfo)) < 1) {
  283.       if (st.st_size <= codesize) {
  284.          reverse = TRUE;
  285.       } else if (pktype == PKfLZW) {
  286.          register i, j;
  287.  
  288.          i = strlen(hblock->name);
  289.          if (hblock->name[--i] == 'Z' && hblock->name[--i] == '.') {
  290.             p = strncpy(ofname, hblock->name, MAXTNAME);
  291.             (void)z_getmem(BITS);
  292.             codesize = 0; thisread = 0;
  293.             if ((j = dbegin(arcget)) == 0) {
  294.                do {
  295.                   if ((j = dpiece(pk_out, pksize)) > 0) codesize += j;
  296.                } while (j == pksize);
  297.                skipped = TRUE;
  298.             } else if (j > 0) {
  299.                bacouple(); /* file is not in compressed format */
  300.             } else if (!no_mem) {
  301.                (void)fprintf(myout, "Tar: not enough memory to uncompress\n");
  302.                no_mem = TRUE;
  303.             }
  304.          }
  305.       }
  306.       thislen = codesize > st.st_size ? codesize : st.st_size;
  307.    } else {
  308.       thislen = st.st_size;
  309.    }
  310.    if (v_flag) {
  311.       (void)fprintf(myout, " %3d/%1d ", st.st_uid, st.st_gid);
  312.       if (c == TF_CHR || c == TF_BLK) {
  313.          (void)fprintf(myout,
  314.             pkfile ? "%10d,%-5d " : "%3d,%-3d ", dmajor, dminor);
  315.       } else {
  316.          (void)fprintf(myout, "%7ld ", reverse ? thislen : st.st_size);
  317.          if (pkfile) {
  318.             if ((c == TF_OLD || c == TF_REG) &&
  319.                 st.st_size <= codesize) {
  320.                (void)fprintf(myout, "(%7ld) ",
  321.                              reverse ? st.st_size : codesize);
  322.             } else {
  323.                (void)fprintf(myout, "          ");
  324.             }
  325.          }
  326.       }
  327.    }
  328.    (void)fprintf(myout, "%-.*s", MAXTNAME, p);
  329.  
  330.    switch (c) {
  331.       case TF_LNK:
  332.       case TF_SYM:
  333.          if (v_flag) (void)fprintf(myout, "\n");
  334.          (void)fprintf(myout, " %s to %s\n",
  335.             c == TF_SYM ? "symlink" : "linked",
  336.             hblock->linkname);
  337.          break;
  338.       case TF_OLD:
  339.       case TF_REG:
  340.          if (nx >= 1) {
  341.             if (v_flag) (void)fprintf(myout, "\n");
  342.             (void)fprintf(myout, " [extent #%d of %d]", nx, allx);
  343.             if (v_flag) (void)fprintf(myout, " %ld bytes total", xinfo);
  344.          }
  345.       case TF_CHR: case TF_BLK:
  346.       case TF_DIR: case TF_QUE: case TF_CTG:
  347.       case GF_DMP: case GF_VOL:
  348.          (void)fprintf(myout, "\n");
  349.          break;
  350.       case GF_MUL:
  351.          if (v_flag) (void)fprintf(myout, "\n");
  352.          (void)soctul(hblock->x.new.offset, &xinfo);
  353.          (void)fprintf(myout, "[from %ld to %ld]",
  354.                               xinfo, xinfo+st.st_size-1);
  355.          (void)fprintf(myout, "\n");
  356.          break;
  357.       default:
  358.          if (v_flag) (void)fprintf(myout, "\n");
  359.          (void)fprintf(myout, _unknown, c);
  360.    }
  361.    if (nx < 1 && v_flag && j_flag && /*dummy*/!skipped &&
  362.        hblock->x.old.comment[0] && !ismagic()) {
  363.       (void)fprintf(myout, "> %s\n", hblock->x.old.comment);
  364.    }
  365.    if (usize()) {
  366.       if (!skipped) skipfile();
  367.       allbytes += thislen;
  368.    }
  369.    ++allfiles;
  370. }
  371.  
  372. static char *cutname __ARGS__((register char *p));
  373.  
  374. static char *cutname(p)
  375. register char *p;
  376. {
  377.    register j;
  378.  
  379.    if (nonest) {
  380.       j = strlen(p);
  381.       while (j>0 && p[j-1] != '/'
  382. #ifdef MSDOS
  383.              && p[j-1] != ':'
  384. #endif
  385.             ) --j;
  386.       p += j;
  387.    } else {
  388. #ifdef MSDOS
  389.       if (deldrv && p[1] == ':' &&
  390.                    (p[0]>='A' && p[0]<='Z' || p[0]>='a' && p[0]<='z'))
  391.          p += 2;
  392. #endif
  393.       if (dslash && *p == '/') ++p;
  394.    }
  395.    return p;
  396. }
  397.  
  398. void extract()
  399. {
  400.    register j, k;
  401.    register char *p;
  402.    extern int makedir __ARGS__((char *, int));
  403.    extern int testdir __ARGS__((char *));
  404.  
  405.    p = cutname(hblock->name);
  406.    if (u_flag) {
  407.       struct stat s;
  408.  
  409.       if (stat(p, &s)==0 && s.st_mtime >= st.st_mtime) {
  410.          if (usize()) skipfile(); return;
  411.       }
  412.    }
  413.    if (w_flag && !okwork('x', prefix(), &st, p)) {
  414.       if (usize()) skipfile(); return;
  415.    }
  416.    if ((j=strlen(p)-1) >= 0 && p[j] == '/') {/* directory with permissions */
  417.       if (testdir(p) != TRUE) return;
  418.       p[j] = '\0';
  419.    } else if (hblock->filetype == TF_DIR || hblock->filetype == GF_DMP) {
  420.       k = FALSE;
  421.       if (makedir(p, FALSE) != 0) {
  422.          if (testdir(p) != TRUE || makedir(p, TRUE) != 0) k = TRUE;
  423.       }
  424.       if (usize()) skipfile();
  425.       if (k) return;
  426.    } else if (hblock->filetype == TF_LNK) {
  427.       makelink(p, cutname(hblock->linkname)); return;
  428.    } else if (hblock->filetype == TF_OLD || hblock->filetype == TF_REG) {
  429.       if (restore(p) != 0) return;
  430. #ifdef UNIX
  431.    } else if (hblock->filetype == TF_CHR || hblock->filetype == TF_BLK ||
  432.               hblock->filetype == TF_QUE) {
  433.       st.st_mode &= 07777;
  434.       if (hblock->filetype != TF_QUE) {
  435.          st.st_mode |= hblock->filetype == TF_BLK ? S_IFBLK : S_IFCHR;
  436.          st.st_rdev  = makedev(dmajor, dminor);
  437.       } else {
  438.          st.st_mode |= S_IFIFO;
  439.          st.st_rdev  = 0;
  440.       }
  441.       j = 0;
  442.       k = FALSE;
  443.       do {
  444.          if (mknod(p, st.st_mode, st.st_rdev) == 0) break;
  445.       } while (++j < 2 && (k = testdir(p)) == TRUE);
  446.       if (j > 1) (void)fprintf(myout, "Tar: can\'t create \'%s\'\n", p);
  447.       if (j > 1 || k == ERROR) return;
  448.       if (v_flag) (void)fprintf(myout, "x %s\n", p);
  449. #endif
  450.    } else {
  451.       (void)fprintf(myout, unknown, p, hblock->filetype);
  452.       return;
  453.    }
  454. #ifdef UNIX
  455.    if (!o_flag) (void)chown(p, (int)st.st_uid, (int)st.st_gid);
  456.    if (!m_flag) {
  457.       long t[2];
  458.  
  459.       t[0] = time(t);
  460.       t[1] = st.st_mtime;
  461.       (void)utime(p, t);
  462.    }
  463. #endif
  464. }
  465.  
  466. void uplist()
  467. {
  468.    register struct node *this; struct node *prev;
  469.  
  470.    if ((this = finditem(hblock->name, &prev, timehead)) == NONE) {
  471.       if ((this = additem(hblock->name, prev, &timehead)) == NONE) {
  472.          outmem(myout);
  473.       }
  474.       this->info.time = st.st_mtime;
  475.    } else {
  476.       if (this->info.time < st.st_mtime) this->info.time = st.st_mtime;
  477.    }
  478. }
  479.  
  480. void acctime()
  481. {
  482.    if (u_flag) uplist();
  483.    if (usize()) skipfile();
  484. }
  485.